急求助 关于datagrid

Question

要打开的文件有word caj kdh 
为什么运行时点击字段却没有反应，麻烦高手给我改一下，谢谢了！ Private Sub DataGrid1_Click() 
Select Case DataGrid1.Text 
Case ".caj" 
  retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".caj") 
Case ".doc" 
  retval = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe d:\vb\gb\" & DataGrid1.Text & ".doc") 
Case ".kdh" 
  retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".kdh") 
End Select   
End Sub

Answer 1

粗略看了一下，应该是判断上的问题，你最好还是跟踪代码看看是不是这个问题Private Sub DataGrid1_Click() 
Select Case LCase(Right(DataGrid1.Text,4)) 
Case ".caj" 
  retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".caj") 
Case ".doc" 
  retval = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe d:\vb\gb\" & DataGrid1.Text & ".doc") 
Case ".kdh" 
  retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".kdh") 
End Select 
End Sub

Answer 2

好像不单是这个问题，你看看你这里Select Case DataGrid1.Text 
Case ".caj"这里应该说明 DataGrid1.Text 应该包含一个文件的扩展名，但是
..." & DataGrid1.Text & ".caj") 这里好像又说 DataGrid1.Text 不包含文件扩展名的，很矛盾。还有你的数据实际是怎样？你最好自己搞清楚来。

Answer 3

如果我的文件只有一种word格式，有很多文章，查询条件不同，文章就在GATAGRID中显示
不同的位置，我怎么样来实现点击某一个标题 文件即能打开浏览
以我上面的语句，不论点击那个 打开的都是相同的一个文件 
我实在是不知道怎么弄 麻烦高手说的详细些 代码应该怎么写 谢谢了

Answer 4

加两个textPrivate Sub DataGrid1_Click()
    With DataGrid1
        .Row = Text1.Text
        .Col = Text2.Text
        
        Select Case Right(Trim(.Text), 4)
            Case ".caj"
                retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text)
            Case ".doc"
                retval = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe d:\vb\gb\" & DataGrid1.Text)
            Case ".kdh"
                retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text)
        End Select
    End With
End Sub

Answer 5

加两个text，输入行、列
Private Sub DataGrid1_Click()
    With DataGrid1
        .Row = Text1.Text
        .Col = Text2.Text
        
        Select Case Right(Trim(.Text), 4)
            Case ".caj"
                retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & .Text)
            Case ".doc"
                retval = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe d:\vb\gb\" & .Text)
            Case ".kdh"
                retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & .Text)
        End Select
    End With
End Sub

Answer 6

Set XBook = XApp.Workbooks.Add
Set XSheet = XBook.Worksheets(1)
With XSheet
   .Range("a1", "IV256").ColumnWidth = 0.23
   .Range("a1", "IV256").RowHeight = 2.2
   Bar1.Max = 256
   For X = 1 To 256
      For Y = 1 To 256
         Cells(Y, X).Interior.Color = Picture1.Point(X, Y)
      Next
      Bar1.Value = X
   Next
'XSheet.Cells(1, 1).Interior.Color
End With
XApp.Visible = True
Exit Sub
ErrLine:
MsgBox Err.Description
End Sub

Answer 7

自由灵活，所见即所得的表格组件，开发环境下设计表格内容，独有的单据和Excel两种界面风格，可设计出各种类型的界面，配合强劲的打印功能，轻松解决自由界面和报表难题。其显著特性包括：# 提供了单据， Excel ，Grid 三种界面风格。    
# 开发环境下设计表格，所见即所得。    
# 支持数据库和分组。    
# 既可以作为普通表格使用，又可以作为数据感知组件使用，或者两者同时使用。    
# 独特的双数据源连接，轻松实现单记录布局和主从表连接。    
# 除了通过数据集本身的方法来访问数据库的记录之外，还可以通过读取单元格的Text属性来实现，这样就不必在数据集间来回移动记录。    
# 支持unicode文本。    
# 支持缩放打印，多列打印。    
# 支持缩放字体填充。    
# 提供了列排序，移动行列，隐藏行列，增删行列等功能。    
# 提供了 Excel 样式的过滤功能。    
# 方便的查找对话框。    
# 提供了单元格合并，单元格命名，只读单元格，锁定单元格等功能。    
# 提供了列对象，用于控制整列单元格。    
# 支持虚表，公式(包括自定义公式)， RTF 格式文本，Ole 对象和图表。    
# 提供了按钮、下拉框、复选框、单选钮、日期、超链接、数值类等多种输入方式。    
# 支持整形、正整形、负整形、浮点数、正浮点数、负浮点数、百分比，货币等多种输入方式。可自动处理千分位，可设置小数位数。    
# 九种文本和图形对齐方式，还可通过单元格边距控制输出位置。    
# 导入\导出 Excel 文件，相互粘贴数据。    
# 提供了自动调整行高，竖排文本，字体旋转等输出功能。    
# 可以设置单元格掩码，附有掩码编辑器。    
# 设置单元格的 PasswordChar。    
# 单元格内容字符数限制。    
# 单元格支持图形，并且可以拉伸，层叠图形。    
# 可以显示/隐藏单元格的边框、可以设置边框的类型、大小、颜色。    
# 支持单元格斜线。    
# 3D 外观的单元格。    
# 设置单元格的光标和提示。    
# 支持自绘画单元格。    
# 设置固定行和列。    
# 保存到文件和流。    
# 提供了复制/粘贴区域功能。    
# VCL 版本可以插入其它可视 VCL 组件。 http://www.anylib.com