- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于select case 的用法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63441)
-- 发布时间：2015/1/21 11:02:00
-- 关于select case 的用法
我有下面一个窗口，当在不同的经手人时，分别调整相应的ID号，如：“支付记录_经手人1” 对应“支付记录_经1员工号”；
“支付记录_经手人２” 对应“支付记录_经２员工号”。请教：如何使用ｃａｓｅ的功能，都调用这同一窗口？谢谢
Dim idh As WinForm.TextBox = e.Form.Controls("ID号")
Dim bgdh As WinForm.TextBox = e.Form.Controls("办公电话")
Dim dzyx As WinForm.TextBox = e.Form.Controls("电子邮箱")
Dim sj As WinForm.TextBox = e.Form.Controls("个人手机")
Dim sszb As WinForm.ComboBox = e.Form.Controls("所属组别")
Dim ryxz As WinForm.ComboBox = e.Form.Controls("人员性质")
Dim xh As WinForm.TextBox = e.Form.Controls("序号")
Tables("内部通讯录").Current("ID号")= idh.text
Tables("内部通讯录").Current("办公电话")= bgdh.text
Tables("内部通讯录").Current("电子邮箱")= dzyx.text
Tables("内部通讯录").Current("个人手机")= sj.text
Tables("内部通讯录").Current("所属组别")= sszb.text
Tables("内部通讯录").Current("人员性质")= ryxz.text
Tables("内部通讯录").Current("序号")= xh.text
Dim dr As DataRow
Dim name As String =Tables("设备经费管理").Current("支付记录_经手人1")
dr = DataTables("内部通讯录").Find("姓名 = \'" & name & "\'")
Tables("设备经费管理").Current("支付记录_经1员工号")= dr("ID号").tostring().substring(3,4)
MessageBox.Show("谢谢!")
Forms("内部通讯录扩充2").close
-- 发布时间：2015/1/21 11:06:00
--
没怎么看懂. 支付记录_经手人1 不是列名么?
-- 发布时间：2015/1/21 11:07:00
--
获取当前的列名
Dim cname As String = Tables("设备经费管理").cols(Tables("设备经费管理").ColSel).Name
msgbox(cname)
-- 发布时间：2015/1/21 11:09:00
--
具体怎么调用的，请上传例子。
-- 发布时间：2015/1/21 11:10:00
--
我在一个窗口中，对同一表中的三条支付记录（分三次支付的情况）同时管理，分别记录相关的信息，但功能是相同的。对第一次支付完成了代码。但对第二次支付时，可能人员会有变化，因此需要同样的功能再调研“通讯录更新”的功能。只是支付人员的字段不同。
此主题相关图片如下：case.png
[此贴子已经被作者于2015-1-21 11:21:02编辑过]
-- 发布时间：2015/1/21 11:12:00
--
以下是引用peterx在2015-1-21 11:10:00的发言：
我在一个窗口中，对同一表中的三条支付记录（分三次支付的情况）同时管理，分别记录相关的信息，但功能是相同的。对第一次支付完成了代码。但对第二次支付时，可能人员会有变化，因此需要同样的功能再调研“通讯录更新”的功能。只是支付人员的字段不同。
我在一个窗口中，对同一表中的三条支付记录（分三次支付的情况）同时管理，分别记录相关的信息，但功能是相同的。对第一次支付完成了代码。但对第二次支付时，可能人员会有变化，因此需要同样的功能再调研“通讯录更新”的功能。只是支付人员的字段不同。
打开窗口之前，用一个变量记录对应的列名，比如 vars("列名") = 某列名
然后再窗口里面根据 vars("列名") 处理
-- 发布时间：2015/1/21 11:29:00
--
谢谢。我现对这点还没弄明白，可否在代码上指导一下。
-- 发布时间：2015/1/21 11:33:00
--
在查那里，赋值
vars("列名") = "第一列"
然后再窗口那里判断
Select Case vars("列名")
Case "第一列"
Case "第二列"
End Select