Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多行填充一行的问题


  共有25702人关注过本帖树形打印复制链接

主题：多行填充一行的问题
帅哥，在线噢！
有点蓝
 小大  91楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113611 积分：578586 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/27 10:32:00 [只看该作者]

还是基础没学好

Dim filter As String = "日期 = #" & Date.Today & "#"
If d.hour < 15 Then
    filter = filter & " and 餐别 = '午餐'"
Else
    filter = filter & " and 餐别 = '晚餐'"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  92楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/7/27 11:02:00 [只看该作者]

老师，我试了试，这个代码还是将所有日期的午餐列出来，代码还需完善

 回到顶部
帅哥，在线噢！
有点蓝
 小大  93楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113611 积分：578586 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/7/27 11:18:00 [只看该作者]

不可能，说明没按我的改

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  94楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/7/27 11:26:00 [只看该作者]

您一说，我认真看了一下，确实只改了第一行，下午回去试/试，谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  95楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/8/1 18:21:00 [只看该作者]

表列很多，手动一列列地增加表结构很累，请教老师，我采用动态增加表结构的办法批量增加列，这两种办法是否一样，对代码有无影响

 回到顶部
帅哥，在线噢！
有点蓝
 小大  96楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113611 积分：578586 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/1 20:05:00 [只看该作者]

添加后重启项目即可，没有什么影响。如果是新增的表，需要到菜单添加一下外部表

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/8/2 9:56:00 [只看该作者]

表A有三列, 第一列，第二列, 第三列, 分别填入数字1, 2, 4；现在在窗口判断是否：第三列 = 第一列 + 第二列, 正确打√, 错误打×, 请教老师, 这个代码应放在哪里？
Dim dr As DataRow = e.DataRow
Dim s As Double
Select Case e.DataCol.Name
    ''计算公式：第三列 = 第一列 + 第二列
    Case "第一列", "第二列" 
        s = dr("第一列") + dr("第二列")
        If s <> dr("第三列") Then
            Forms("窗口1").Controls("Label1").Text = "x" 
        Else
            Forms("窗口1").Controls("Label1").Text = "√"
        End If
End Select
[此贴子已经被作者于2024/8/2 9:56:32编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  98楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113611 积分：578586 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/2 10:43:00 [只看该作者]

表格datacolchanged事件

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/8/2 10:44:00 [只看该作者]

我将此代码修改放在窗口AfterLoad事件也不行, 应放在哪里合适？
For Each dr As DataRow In DataTables("表A").DataRows
    Dim s As Double
    s = dr("第一列") + dr("第二列")
    If s <> dr("第三列") Then
        Forms("窗口1").Controls("Label1").Text = "×" 
    Else
        Forms("窗口1").Controls("Label1").Text = "√" 
    End If 
Next
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  100楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：6601 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/8/2 10:46:00 [只看该作者]

开始就放在那里起不了验证作用，列一和列二数字不变动，不起作用

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询