王总，把当前表选择区域转成JSON,代码应该怎么写啊

zhaoxl

王总，把当前表选择区域转成JSON,代码应该怎么写啊

admin

下面是利用选择列作为辅助列来实现对选择区域的Json转化。前提是，在选择区域之前要先清空之前的选择行状态

Dim tb As SmGrid=Proj.CurrentSmGrid
'打开复选框
tb.ShowCheckBox=True
'根据选择区域选择相应的行
tb.CheckAllRows(tb.CheckBoxColName,True)
'根据选择列的状态获得一个视图
Dim dv As DataView =New DataView(tb.DataTableHelp.DataTable,tb.CheckBoxColName &"=true","",DataViewRowState.CurrentRows)
'根据视图获得一个表
Dim dt As DataTable=dv.ToTable()
'根据DataTable对象获得相应的Json
Dim strJson As String=dt.ToJson()
'显示相应的Json
Proj.MsgDebug.Add(strJson)
复制代码