[求助]狐表CaseStudy目录的自动输入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]狐表CaseStudy目录的自动输入问题

共有28311人关注过本帖树形打印复制链接主题：[求助]狐表CaseStudy目录的自动输入问题

migold

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

加好友

发短信

等级：一尾狐帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00

Post By：2009/7/17 16:56:00 [只看该作者]

kylin

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

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2009/7/17 17:14:00 [只看该作者]

以下是引用migold在2009-7-17 16:56:00的发言：

你直接写一下，像我这个菜鸟会想破头

菜鸟也要菜的有层次才可以的，

静心下来学习帮助总应该的吧，呵呵

migold

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

加好友

发短信

等级：一尾狐帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00

Post By：2009/7/17 17:15:00 [只看该作者]

学习是要的，最近工作很忙

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/7/17 17:21:00 [只看该作者]

先自己做.
三天后,没有作出来的话,我给答案.

migold

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

加好友

发短信

等级：一尾狐帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00

Post By：2009/8/5 14:37:00 [只看该作者]

老大，试了还是做不出来，请给答案，谢谢

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/5 14:44:00 [只看该作者]

以下是引用migold在2009-8-5 14:37:00的发言：
老大，试了还是做不出来，请给答案，谢谢

贺老师现在特忙,我来试试看,你烦他了,呵呵

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/8/5 14:45:00 [只看该作者]

DataColChanged事件：

'如果刚刚输入的是省市或县市列
If e.DataCol.Name = "省市" Orelse e.DataCol.Name = "县市" Then
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    Dim cmb As WinForm.ComboBox
    cmd.CommandText = "SELECT DISTINCT 区号,邮编 From {行政区域} Where 省市 = '" & e.DataRow("省市") & "' And 县市 = '" & e.DataRow("县市") & "'"
    dt = cmd.ExecuteReader()
    If dt.DataRows.Count > 0 Then
        e.DataRow("区号") = dt.DataRows(0)("区号")
        e.DataRow("邮编") = dt.DataRows(0)("邮编")
    End If
End If