Dim tn As DataRow = DataTables("表A").Find("判断=True","编号 Desc") If tn IsNot Nothing Then xz.text= tn("编号") Else tn = DataTables("表A").Find("","编号 Desc") If tn IsNot Nothing Then xz.text= tn("编号") Else Dim ts As DataRow = DataTables("表A").addnew ts("编号")="001" End If End If
加好友 
发短信
Post By：2014/9/23 9:35:00 [显示全部帖子]
