批量动态修改列标题，怎么重新打开，又没有修改？
如何正确做？请帮助
With
DataTables("JSAPI") |
| .DataCols("product_id").Caption
= "商品ID" |
| .DataCols("日期").Caption =
"" |
| .DataCols("openid").Caption =
"客户ID" |
| .DataCols("is_subscribe").Caption
= "是否关注" |
| .DataCols("out_trade_no").Caption
= "商户订单号" |
| .DataCols("transaction_id").Caption
= "微信订单号" |
| .DataCols("prepay_id").Caption
= "预支付ID" |
| .DataCols("trade_type").Caption
= "交易类型" |
| .DataCols("device_info").Caption
= "设备号" |
| .DataCols("result_code").Caption
= "业务结果" |
| .DataCols("code_url").Caption =
"二维码链接" |
| .DataCols("err_code").Caption =
"错误代码" |
| .DataCols("err_code_des").Caption
= "错误代码描述" |
| .DataCols("mch_id").Caption =
"商户号" |
| .DataCols("orderfee").Caption =
"金额（分）_订单金额" |
| .DataCols("total_fee").Caption
= "金额（分）_实付金额" |
| .DataCols("settlement_total_fee").Caption
= "金额（分）_应结订单" |
| .DataCols("coupon_fee").Caption
= "金额（分）_代金券" |
| .DataCols("cash_fee").Caption =
"金额（分）_现金支付" |
| .DataCols("说明").Caption =
"" |
| .DataCols("return_msg").Caption
= "返回信息" |
| .DataCols("return_code").Caption
= "返回状态码" |
| .DataCols("time_end").Caption =
"支付完成时间" |
| .DataCols("trade_state").Caption
= "交易状态" |
| .DataCols("trade_state_desc").Caption
= "交易状态描述" |
|
| .BuildHeader() |
End With
|