Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一周排序问题


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

主题：一周排序问题
帅哥哟，离线，有人找我吗？
cyrollin
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/9 15:12:00 [只看该作者]

LSY老师的这个代码我不知道放哪里？

在增加的这一列，手动输入了数字， 能不能写个代码自动添入，前一列输入星期一，后一列就自动为1，这样子


图片点击可在新窗口打开查看此主题相关图片如下：771.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/3/9 15:13:00 [只看该作者]

最简单的.

select case e.newValue
     case "星期一"
        e.datarow("固定排序")=1
end select
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/9 15:13:00 [只看该作者]

 可以啊，你判断固定时间列的内容，对应的填写不同的数字，或者直接获取日期的值填入也行啊

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


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/3/9 15:14:00 [只看该作者]

就是一列，用不着两列。

DrawCell事件：
固定时间列，改为整数数据类型

If e.Col.Name = "固定时间" AndAlso e.Row(e.Col) >= 1 AndAlso e.Row(e.Col) <= 7 Then
    e.Text = WeekDayName(e.Row(e.Col))
End If
[此贴子已经被作者于2015/3/9 15:16:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/9 15:18:00 [只看该作者]

以下是引用lsy在2015/3/9 15:02:00的发言：
DrawCell事件：

If e.Col.Name = "固定时间" AndAlso e.Row(e.Col) >= 1 AndAlso e.Row(e.Col) <= 7 Then
    e.Text = WeekDayName(e.Row(e.Col))
End If

输入字符串的格式不正确。[此贴子已经被作者于2015/3/9 15:14:39编辑过]
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：表，客户数据，DrawCell
详细错误信息：
调用的目标发生了异常。
从字符串“星期一”到类型“Double”的转换无效。

LSY ，试用了您的代码，出现了这个错误
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/9 15:20:00 [只看该作者]

是字符类型，LSY

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


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/3/9 15:24:00 [只看该作者]

以下是引用cyrollin在2015/3/9 15:20:00的发言：
是字符类型，LSY

改个数据类型，不是难事。
然后输入数字，而不是星期几。
注意星期日是1，不是7
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/9 15:25:00 [只看该作者]

以下是引用cyrollin在2015/3/9 15:20:00的发言：
是字符类型，LSY

If e.DataCol.Name = "固定时间" Then

    If e.NewValue = Nothing Then

        e.DataRow("固定排序") = Nothing

    Else

     Select Case e.newValue

     Case "星期一"

        e.DataRow("固定排序")=1

     Case "星期二"

        e.DataRow("固定排序")=2

     Case "星期三"

        e.DataRow("固定排序")=3

     Case "星期四"

        e.DataRow("固定排序")=4

     Case "星期五"

        e.DataRow("固定排序")=5

     Case "星期六"

        e.DataRow("固定排序")=6

     Case "星期日"

        e.DataRow("固定排序")=7

        End Select

    End If

End If


谢谢bin，然后我把这个列隐藏起来，搞定，，，，，谢谢各位老师！
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/3/9 15:33:00 [只看该作者]

如果不改数据类型，就这样：

If e.Col.Name = "固定时间" AndAlso e.Row.IsNull(e.Col) = False AndAlso CInt(e.Row(e.Col)) >= 1 AndAlso CInt(e.Row(e.Col)) <= 7 Then
    e.Text = WeekDayName(CInt(e.Row(e.Col)))
End If
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/3/9 15:43:00 [只看该作者]

以下是引用lsy在2015/3/9 15:33:00的发言：
如果不改数据类型，就这样：

If e.Col.Name = "固定时间" AndAlso e.Row.IsNull(e.Col) = False AndAlso CInt(e.Row(e.Col)) >= 1 AndAlso CInt(e.Row(e.Col)) <= 7 Then
    e.Text = WeekDayName(CInt(e.Row(e.Col)))
End If

谢谢BIN老师的热心，用了上面的代码，出现这样的提示：


.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2014.11.11.1

错误所在事件：表，客户数据，DrawCell

详细错误信息：

调用的目标发生了异常。

从字符串“星期二”到类型“Integer”的转换无效。

输入字符串的格式不正确。
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询