Foxtable(狐表)用户栏目专家坐堂 → 查找*字符和单元格绘制


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

主题:查找*字符和单元格绘制

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:7870 威望:0 精华:0 注册:2013/5/30 11:27:00
查找*字符和单元格绘制  发帖心情 Post By:2019/9/7 8:58:00 [显示全部帖子]

老师,我有两个问题:1.要查找的字符是*,但*是通配符,导致语句报错
Dim drtx1 As DataRow
Dim st As String = "|**|"
drtx1 = DataTables("APQP基本资料信息").Find("特性编号 = 'Pd-2' And 项目编号 = '" & Tables("APQP基本资料主表").current("项目编号") & "' and 项目 = '影响因素' and [影响因素] like '%" & st & "%'")
If drtx1 IsNot Nothing Then '如果找到的话
MessageBox.Show(200)
Else
    MessageBox.Show(100)
End If

图片点击可在新窗口打开查看此主题相关图片如下:456.png
图片点击可在新窗口打开查看
2.我想要单元格内绘制一个正方形,可是为什么没有出现呢
If e.Col.name = "DefiniRange" Then
    e.StartDraw()
     e.Graphics.FillRectangle(Brushes.Red,10,10,100,50)
    e.EndDraw()
End If
在DrawCell事件里写代码,单元格行高与列宽都非常大。另外如果我导出这张表,单元格内绘制的形状该如何导出?

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:7870 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/9/7 10:40:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:567.png
图片点击可在新窗口打开查看


Dim drtx1 As DataRow
drtx1 = DataTables("APQP基本资料信息").Find("特性编号 = 'Pd-2' And 影响因素 Like '%|[**]|%'")
If  drtx1 IsNot Nothing Then '如果找到的话
    MessageBox.Show(1)
Else
    MessageBox.Show(0)
End If
加了括号,还是报错呢?

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:7870 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/9/7 10:40:00 [显示全部帖子]

把竖线加上去或是去掉,都报错


 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:7870 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2019/9/7 11:03:00 [显示全部帖子]

不好意思老师,还有一个问题,我绘制好的图形,如何导出到EXCEL内?类似于下图这样:

图片点击可在新窗口打开查看此主题相关图片如下:789.png
图片点击可在新窗口打开查看

 回到顶部