DataTables("产品维护").LoadFilter = "[_Identify] Is Null"
DataTables("产品维护").LoadAsync()
msgbox(1)
Dim dr As DataRow
CType(e.Form.Controls("RecordGrid1").BaseControl, C1.Win.C1FlexGrid.C1FlexGrid).Styles.EmptyArea.BackColor = Drawing.Color.WhiteSmoke
Dim ctl As WinForm.CheckedComboBox = e.Form.Controls("列表")
ctl.Value = "类型,条码,元器件名称"
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From{产品维护}"
dt = cmd.ExecuteReader()
For Each cl As DataCol In dt.DataCols
Select Case cl.Name
Case "类型", "条码", "元器件名称", "型号", "封装", "供应商编号", "供应商名称"
ctl.Items.Add(cl.Name)
End Select
Next
For Each c As WinForm.Control In Forms(FrmName).Controls
If TypeOf c Is WinForm.Button Then '判断控件是否是文本框
Dim t As WinForm.Button = c '使用特定类型的变量引用控件
t.FlatStyle = FlatStyle.Standard
dr = DataTables("系统设置表").SQLFind("类型='按钮风格' And 用户ID='" & Vars("_UserID") & "'")
If dr IsNot Nothing Then
t.VisualStyle = CInt(dr("系统值"))
Else
t.VisualStyle = 4
End If
End If
Next
MsgBox(4)
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim ftp As New FTPClient
dr = DataTables("系统设置表").SQLFind("用户ID='远程文件服务器设置' And 类型='服务器地址'")
If dr IsNot Nothing Then
ftp.Host = dr("系统值")
End If
dr = DataTables("系统设置表").SQLFind("用户ID='远程文件服务器设置' And 类型='用户名'")
If dr IsNot Nothing Then
ftp.Account = dr("系统值")
End If
dr = DataTables("系统设置表").SQLFind("用户ID='远程文件服务器设置' And 类型='密码'")
If dr IsNot Nothing Then
ftp.Password = dr("系统值")
End If
dr = DataTables("系统设置表").SQLFind("用户ID='远程文件服务器设置' And 类型='端口'")
If dr IsNot Nothing Then
ftp.Port = dr("系统值")
End If
ftp.ChangeDir("\产品图片")
piv.FTPClient = ftp
加好友 
发短信
Post By：2014/4/15 11:12:00 [只看该作者]
此主题相关图片如下：tt截图未命名.bmp