主题：想实现批量授权

前面定义字符型的名为C变量存储列名，后面循环也用C变量，这是不行的，这里必须用不同的名称，另外最好判断一下是否选择了表，还有combolist你写成ombolist了。

Dim dt As String = e.Form.Controls("ComboBox2").text '表名控件
Dim c As String
If dt > "" Then
    For Each dc As DataCol In DataTables(dt).DataCols
        c = c & "|" & dc.Name
    Next
    Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox3") '列名控件
    cmb.comboList = c.Trim("|")
End If

下载信息  [文件大小：30.0 KB  下载次数：10]

点击浏览该文件:管理项目81.rar