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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮忙，谢谢。

共有1805人关注过本帖树形打印复制链接主题：请帮忙，谢谢。

jncoser

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：47 积分：615 威望：0 精华：0 注册：2015/11/16 0:17:00

请帮忙，谢谢。 发帖心情

Post By：2017/3/14 12:35:00 [只看该作者]

Dim lb As WinForm.ComboBox = e.Form.Controls("类别")

Dim pm As WinForm.ComboBox = e.Form.Controls("品名")

Dim qrq As WinForm.DateTimePicker = e.Form.Controls("起始日期")

Dim qyd As WinForm.ComboBox = e.Form.Controls("起运地")

Dim ydd As WinForm.ComboBox = e.Form.Controls("运达地")

Dim ss As String() = {"lb","pm","qrq","ydd","yd" }

For i As Integer = 0 To ss.Length - 1

If ***** = "" Then

MessageBox.Show(ss(i))

Exit For

End If

请问星部分代码如何写？

控件操作可以动态组合吗？

我试过 ss(i) & ".value" 不对,把ss(i)附给字符串变量字符没有.valuet属性

求解。谢谢。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/14 14:57:00 [只看该作者]

还是不如这样

Dim ss As String() = {"类别","品名","起始日期","起运地","运达地" }
For i As Integer = 0 To ss.Length - 1
    If e.Form.Controls(ss(i)).value Is Nothing Then
        MessageBox.Show(ss(i))
        Exit For
    End If
Next

jncoser

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：47 积分：615 威望：0 精华：0 注册：2015/11/16 0:17:00

Post By：2017/3/14 15:30:00 [只看该作者]

哦。。。谢谢明白了。

e.Form.Controls(ss(i))

这样的写法。

谢谢谢谢

下一主题 >> << 上一主题

主题：请帮忙，谢谢。