- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 老大！急！帮看看关联表问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2582)
-- 发布时间：2009/4/23 19:42:00
-- 老大！急！帮看看关联表问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:仓库管理_0423.rar |
请老大帮忙！为什么关联表会出现在底部？
-- 发布时间：2009/4/23 20:19:00
--
你把门锁了，我怎么看啊？
-- 发布时间：2009/4/24 7:18:00
--
以下是引用baoxyang在2009-4-23 19:42:00的发言：
请老大帮忙！为什么关联表会出现在底部？
| 下载信息 [文件大小：358.6 KB 下载次数：1] | |
 点击浏览该文件:仓库管理_0423.rar |
请老大帮忙！为什么关联表会出现在底部？
不是可以选择的吗?
-- 发布时间：2009/4/24 8:55:00
--
老大!已把密码通过短信告诉你了,不知收到否?
-- 发布时间：2009/4/24 9:01:00
--
还是打不开，数据源不行。
-- 发布时间：2009/4/24 9:03:00
--
你可以将你的数据源导出为access文件，然后链接到这个Access文件。
-- 发布时间：2009/4/24 9:39:00
--
哦，好的。
-- 发布时间：2009/4/24 10:11:00
--
数据库无密码
-- 发布时间：2009/4/24 10:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:仓库管理.rar |
-- 发布时间：2009/4/24 10:39:00
--
你自己看看登陆窗口的按钮代码吧：
if Vars("用户")<>"gdlgh" then
For Each tb As Table In Tables
tb.Visible = true \'false
Next
QAT.Visible = False
ConfigBar.Visible = False
end if
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "select 名称 From [权限]"
dt = cmd.ExecuteReader()
Dim cbox As WinForm.ComboBox = e.Form.Controls("ComboBox1")
For Each dr As Datarow In dt.Datarows
cbox.Items.Add(dr("名称"))
Next
[此贴子已经被作者于2009-4-24 10:39:29编辑过]