Dim cmd As New SQLCommand
cmd.ConnectionName= gs_strActiveConn
cmd.CommandText= "s elect 窗体ID from {窗口程序说明} where [窗口名称] = '" & e.Form.name & "'"
Dim dtName As DataTable = cmd.ExecuteReader
If dtName.DataRows.Count > 0 Then
cmd.CommandText= "s elect * from {窗体控件对应表} where [窗体ID] = " & dtName.DataRows(0)("窗体ID")
Else
cmd.CommandText= "s elect * from {窗体控件对应表} where 1=2 "
End If
Dim dt As DataTable = cmd.ExecuteReader(True)
MessageBox.Show("dt.count=" & dt.DataRows.Count)
If ListAnniu.Count > 0 Then
For Each List As object In ListAnniu
Dim dr As DataRow = dt.Find("控件名称 = '" & List.name & "'")
If dr Is Nothing Then
dr = dt.AddNew()
dr("窗体ID") = dtName.DataRows(0)("窗体ID")
dr("控件名称") = List.name
dr("权限控制") = False
dr("控件ID") = dr("_Identify")
End If
dr("控件标题") = List.Text
dr("控件类型") = "按钮"
'dr("权限控制") = False
dr("删除") = False
dr("修改时间") = system_Mydate
' dr("权限类型") = ???
Next
End If
红色代码赋值后为 0
加好友 
发短信
Post By：2016/6/29 17:10:00 [只看该作者]
