- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关联表问题搞了三天.都没搞明白,有请老师指点迷津... (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1599)
-- 发布时间：2009/1/10 22:46:00
-- 关联表问题搞了三天.都没搞明白,有请老师指点迷津...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关联测试.table |
如图所示三处,想得我白头发都多了好几根也没想出个办法,麻烦老师们指教..
此主题相关图片如下：01.jpg
问题1,如何实现选择某项目时,判断该项目关联表是否有空行,有则返回,无则自动增加行.
我在ComboBox1控件的Valuechanged这样写报错,注:原版是外部数据.
Dim cmd As SQLCommand
这里原有连接语句
Dim ls As DataTable
Dim dt As integer
Dim dr As string = e.form.controls("ComboBox1").Value
cmd.commandtext = "select 第三列 From [表B] where 第一列 = \'"& dr &"\' and 第二列 = \'\'"
ls = cmd.ExecuteReader()
dt = ls.datarows.count
if dt > 0 Then
Return
Else
Tables("表A.表B").AddNew()
end if
问题二:如何在指定列(如第八列)录入完数据按下回车键自动增加新行?帮助里都是到最后一行....才能新增..郁闷.
问题三:如何在主窗口加载时不显示当前主表选择行(一般为第一行)关联表数据?直到选择ComboBox1下拉选项时才出现相应关联表数据?
-- 发布时间：2009/1/11 8:45:00
--
天天泡论坛..早上起来顶一顶...
-- 发布时间：2009/1/11 8:53:00
--
第二列 = \'\',要写成 第二列 is null，其他自己再测试
-- 发布时间：2009/1/11 9:28:00
--
第二个问题有个思路,不知道是否可行?不过输入焦点移动那一行我不懂写...
在表AfterEdit事件中加入:
If e.Col.name=第九列 Then
把输入焦点移到最后一个单元格
Sendkeys.send({ENTER})
第一个问题变得好奇怪....下面的代码在ComboBox1的ValueChanged里运行得好好的,把它们转到某个按钮Clik中就报错,奇怪....难道是红色部分出错?
Dim cmd As SQLCommand
cmd.Con nection Name= "zygl"
Dim ls As DataTable
Dim dt As integer
Dim dr As string = e.form.controls("TextBox6").Value
cmd.commandtext = "select 项目 From [长嘱] where 住院ID = \'"& dr &"\'and 单价 is null"
ls = cmd.ExecuteReader()
dt = ls.datarows.count
if dt = 0 Then
Tables("住院登记.长嘱").AddNew()
end if此主题相关图片如下：q001.jpg
-- 发布时间：2009/1/11 20:59:00
--
错在这里：
cmd.Con nection Name= "zygl"
-- 发布时间：2009/1/11 21:54:00
--
错在这里：
cmd.Con nection Name= "zygl"
那里是故意的..不打空格,论坛显示不到...
-- 发布时间：2009/1/11 23:26:00
--
不好意思，我没打开你的文件。
Dim cmd As New SQLCommand
Dim ls As DataTable
Dim dt As integer
Dim dr As string = e.form.controls("ComboBox1").Value
cmd.commandtext = "select 第三列 From {表B} where 第一列 = \'"& dr &"\' and 第二列 is null"
ls = cmd.ExecuteReader()
dt = ls.datarows.count
if dt > 0 Then
Return
Else
Tables("表A.表B").AddNew()
end if
-- 发布时间：2009/1/12 9:35:00
--
再次绝倒.....Dim cmd As New SQLCommand
另问,select 第三列 From {表B} where 第一列 = \'"& dr &"\' and 第二列 is null
其中的 {表B} 跟[表B]有什么不同?什么时候用[]什么时候用{}?
-- 发布时间：2009/1/12 9:47:00
--
再次绝倒.....Dim cmd As New SQLCommand
另问,select 第三列 From {表B} where 第一列 = \'"& dr &"\' and 第二列 is null
其中的 {表B} 跟[表B]有什么不同?什么时候用[]什么时候用{}?
如果是内部数据源，SQL语句中的表名必须用大括号括起来，外部数据源没有这个限制。