主题：[求助]

老师你好，2个问题请教：

1.关于导入的表标题，我们有带 下划线_的如何就让下划线是表标题，例如 导入 ‘审核人_FName’  就显示这个标题，而不是
此主题相关图片如下：截图1.png

 

2.我们导出表格的格式为EXCEL格式，如何在指定的单元格中加入我们需要的格式？

我们需要的单元格格式示例：

 

此主题相关图片如下：截图2.png

好的，老师，我们试试看。

还有个问题请教：

如何将模糊查询的结果（行）数据填入指定的表格（字段中）？

为何导入EXCEL表 的  FALSE、TRUE 会显示成
此主题相关图片如下：截图3.png

 

如何就在FOXtable中显示  FALSE、TRUE

是填充，但是把列中所有的数据都填进来了。  产品列有1000行，我只要选中哪行，填哪行。

Dim f As New  Filler
f.SourceTable = DataTables("物料表") '指定数据来源
f.SourceCols = "产品,客户"  '指定数据来源列
f.DataTable = DataTables("圆片陶瓷电容_独石电容") '指定数据接收表
f.DataCols = "产品,客户"  '指定数据接收列
f.Fill() '填充数据

还是不太明白，请教老师如何编写代码

此主题相关图片如下：截图4.png

老师  还是出来很多啊  我想只要一行或者说在模糊查询里我双击的那行的数据进行填充  该怎么写

老师，这样写还是不能行。

 

Dim f As New  Filler
Dim sCols() As String = {"规格型号","默认工艺路线_FInterID","默认工艺路线_FRoutingName"}
Dim dCols() As String = {"ggxh","mrgylx_id","mrgylx_mc"}
Dim nr As DataRow = DataTables("圆片陶瓷电容_独石电容料号表").AddNew()
For i As Integer =0 To sCols.Length -1
    nr(dCols(i)) = Tables("物料表").Current(sCols(i))
Next
f.SourceTable = DataTables("物料表") '指定数据来源
f.SourceCols = "规格型号,默认工艺路线_FInterID,默认工艺路线_FRoutingName"  '指定数据来源列
f.Filter = Tables("物料表").Filter
f.DataTable = DataTables("圆片陶瓷电容_独石电容料号表") '指定数据接收表
f.DataCols = "ggxh,mrgylx_id,mrgylx_mc"  '指定数据接收列
f.Fill() '填充数据

 

此主题相关图片如下：截图1.png

老师  如图  我在模糊查询选择了规格型号后  填充的并不是我选的那一行的结果  而且填充的位置也不在我选择规格型号的那一行  多次尝试后我发现填充的数据是物料表里光标所停的位置   请问老师如何才能达到我要的效果

好的，测试OK了，感谢！

 

但是有这个报错：

 

Like 运算符中出错: 字符串模式“%CT1-50V-08c-2B-562K 5c*4.5%”无效。

 

 

看过了，全部是带有*号的，均会出现以上报错。

老师，您好。

1.楼上的句子是针对所有的带有 * 号的吗？   ----我们需要是针对所有带*号的；

2.上面的句子会替换原表中的数据吗？   ----我们不希望替换原表中的数据。

 

以上求请教。

 

 

我们之前有做了模糊查询：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("料号筛选_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "规格型号 Like " & txt & " Or 代码 Like " & txt
End If

 

 

这个模糊查询中出现的此类问题。