打开窗体报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cmb As WinForm.ComboBox = Forms("POS机批量入库窗体").Controls("suoshucangkuCombo")
cmb.ComboList = DataTables("仓库资料").GetComboListString("仓库名称")
If cmb.Items.count >= 2 Then
    cmb.SelectedIndex = 1
End If
cmb= Forms("POS机批量入库窗体").Controls("jijuxinghaoCombo")
cmb.ComboList = DataTables("pos机信息表").GetComboListString("机具型号")
If cmb.Items.count >= 2 Then
    cmb.SelectedIndex = 1
End If
cmb = Forms("POS机批量入库窗体").Controls("changjiamingchengCombo")
cmb.ComboList = DataTables("POS机信息表").GetComboListString("厂家名称")
If cmb.Items.count >= 6 Then
    cmb.SelectedIndex = 5
ElseIf cmb.Items.count >= 1 Then
    cmb.SelectedIndex = 0
End If

[此贴子已经被作者于2017/10/7 23:45:16编辑过]

主题：打开窗体报错