- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 两个窗口使用的是同样的代码，得到的效果不同！！！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4950)
-- 发布时间：2009/11/11 16:42:00
-- 两个窗口使用的是同样的代码，得到的效果不同！！！
两个窗口使用的是同样的代码，得到的效果不同！！！
单位基本信息录入表中的“删除数据”窗口，使用的和人事工资表中的“查询”窗口代码一样！！！
但是勾选复选框时，全不单位名称都显示出了！！！而不是只显示我勾选的单位！
此主题相关图片如下：未命名.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
-- 发布时间：2009/11/11 17:10:00
--
斑竹
帮忙，看看
-- 发布时间：2009/11/11 17:14:00
--
if e.table.Current.Checked = True Then
Forms("删除数据").Controls("输入单位名称").Value = e.Table.Current("单位名称")
Forms("删除数据").Controls("输入单位地址").Value = e.Table.Current("单位地址")
e.table.Current.Checked = True
End If
for i as integer = 0 to tables("单位基本信息录入").count-1
if tables("单位基本信息录入").rows(i)("单位名称") = Tables("删除数据_Table1").current("单位名称") then
tables("单位基本信息录入").position = i
exit for
end if
next
if e.table.Current.Checked = True Then
Forms("数据查询窗口").Controls("输入查询姓名").Value = e.Table.Current("姓名")
Forms("数据查询窗口").Controls("身份证号").Value = e.Table.Current("身份证号")
e.table.Current.Checked = True
End If
for i as integer = 0 to tables("人事工资管理").count-1
if tables("人事工资管理").rows(i)("姓名") = Tables("数据查询窗口_Table1").current("姓名") then
tables("人事工资管理").position = i
exit for
end if
next
-- 发布时间：2009/11/11 17:15:00
--
在勾选复选框后的事件中，这两段代码没什么差别噻
-- 发布时间：2009/11/11 18:49:00
--
是咋回事？
-- 发布时间：2009/11/11 23:34:00
--
|
是咋回事？ |
-- 发布时间：2009/11/12 10:42:00
--
你的单位基本信息录入表中的“删除数据”窗口文本框:输入单位地址 textchanged事件 中的代码就是这样要求的:::勾选复选框时，全部单位名称都(要求)显示出的啊！！！ 你自己的代码要求达到什么目的连你自己都不知道吗???
建议楼主仔细看懂各个事件中代码的意思～～～ 后再提问题！！ 很多事件中代码的结果相互重复、重叠、甚至相互矛盾。 阿门～～～
-- 发布时间：2009/11/12 11:38:00
--
Dim BB As String
BB = Forms("删除数据").Controls("输入单位地址").text
If BB <> "" Then
Tables("删除数据_Table1").DataSource = DataTables("单位基本信息录入")
Tables("删除数据_Table1").SetColVisibleWidth("单位名称|120|单位地址|160|单位负责人|100")
with e.Form
Dim dst As Table = Tables("单位基本信息录入")
Dim txb1 As WinForm.TextBox = .Controls("输入单位地址")
Tables("删除数据_Table1").Filter = "[单位地址] Like \'*" & txb1.text & "*\'"
end with
else
With e.Form
Tables("删除数据_Table1").Filter = "_identify < 0"
Dim cmd As WinForm.TextBox = e.Form.Controls("输入单位名称")
cmd.value=""
End With
end if
Dim BB As String
BB = Forms("数据查询窗口").Controls("身份证号").text
If BB <> "" Then
Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")
Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")
with e.Form
Dim dst As Table = Tables("人事工资管理")
Dim txb1 As WinForm.TextBox = .Controls("身份证号")
Tables("数据查询窗口_Table1").Filter = "[身份证号] Like \'*" & txb1.text & "*\'"
end with
else
With e.Form
Tables("数据查询窗口_Table1").Filter = "_identify < 0"
Dim cmd As WinForm.TextBox = e.Form.Controls("输入查询姓名")
cmd.value=""
End With
end if
-- 发布时间：2009/11/12 11:40:00
--
这两段代码没什么区别噻
-- 发布时间：2009/11/12 13:09:00
--
Dim txb1 As WinForm.TextBox = .Controls("输入单位地址")
Tables("删除数据_Table1").Filter = "[单位地址] Like \'*" & txb1.text & "*\'"
单位地址在你的表中是重复的！！！！！！！！！1
Dim txb1 As WinForm.TextBox = .Controls("身份证号")
Tables("数据查询窗口_Table1").Filter = "[身份证号] Like \'*" & txb1.text & "*\'"
而身份证号好像没有重复的吧？？？？？？
不光要看代码，还要看你代码对应的数据内容》》》》 ～！
看看：：：地址不同时的情况：
此主题相关图片如下：qstn.gif