<style type="text/css">
.hide {display:none;}
</style>
<asp:GridView ....
<Columns>
<asp:BoundField DataField="fieldFromDB" HeaderText="Some text" SortExpression="fieldFromDB">
<HeaderStyle CssClass="hide" />
<ItemStyle CssClass="hide" />
</asp:BoundField>
</Columns>
</asp:GridView>
Protected Sub GridView2_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.Cells[index].Visible = false
End If
End Sub
2018年3月21日 星期三
2018年3月13日 星期二
集中式寄信服務器
需求:
多M個體系又區分N門市店,集中在一台主機上處理信件發送需求
總算完成
完成這服務器的心得感想,我想各大型的物流宅配簡訊.,mail通知系統 (如:7-11 , 全家) 等應該也如此應用)
---
多M個體系又區分N門市店,集中在一台主機上處理信件發送需求
總算完成
完成這服務器的心得感想,我想各大型的物流宅配簡訊.,mail通知系統 (如:7-11 , 全家) 等應該也如此應用)
---
2018年3月10日 星期六
Using Application Configuration Files in .NET
請參考來源:Using Application Configuration Files in .NET
---
value="Server=localhost;Database=Northwind;Integrated
Security=false;User Id=sa;Password=;" />
讀取方式:
// Read appSettings
string title = ConfigurationSettings.AppSettings["ApplicationTitle"];
string connectString =
ConfigurationSettings.AppSettings["ConnectionString"];
---
Security=false;User Id=sa;Password=;" />
讀取方式:
// Read appSettings
string title = ConfigurationSettings.AppSettings["ApplicationTitle"];
string connectString =
ConfigurationSettings.AppSettings["ConnectionString"];
Server Error in '/' Application.
之前的專案一直都沒這問題
近期新建的專案,架到主機卻發生 Server Error in '/' Application.
找了老半天
發現,原來是 Roslyn 問題( for vs 2015)
請參考此篇方法,即可解決
--
近期新建的專案,架到主機卻發生 Server Error in '/' Application.
找了老半天
發現,原來是 Roslyn 問題( for vs 2015)
請參考此篇方法,即可解決
--
2018年3月7日 星期三
讀取其他 app.config 檔
參考引用:AppSettings get value from .config file
---
'設定其他 .config 檔
AppDomain.CurrentDomain.SetData("APP_CONFIG_FILE", @"d:\test\justAConfigFile.config.whateverYouLikeExtension");
ConfigurationManager.RefreshSection("appSettings");
string value = ConfigurationManager.AppSettings["NewKey0"];
---
'設定其他 .config 檔
AppDomain.CurrentDomain.SetData("APP_CONFIG_FILE", @"d:\test\justAConfigFile.config.whateverYouLikeExtension");
ConfigurationManager.RefreshSection("appSettings");
string value = ConfigurationManager.AppSettings["NewKey0"];
2018年2月21日 星期三
2018年1月30日 星期二
純文字檔案(例如:txt,csv)轉成DataTable的方法
純文字檔案(例如:txt,csv)轉成DataTable的方法
Public Function TxtConvertToDataTable(File As String, TableName As String, delimiter As String) As DataTable
Dim dt As New DataTable()
Dim ds As New DataSet()
Dim s As New StreamReader(File, System.Text.Encoding.[Default])
'string ss = s.ReadLine();//skip the first line
Dim columns As String() = s.ReadLine().Split(delimiter.ToCharArray())
ds.Tables.Add(TableName)
For Each col As String In columns
Dim added As Boolean = False
Dim [next] As String = ""
Dim i As Integer = 0
While Not added
Dim columnname As String = col + [next]
columnname = columnname.Replace("#", "")
columnname = columnname.Replace("'", "")
columnname = columnname.Replace("&", "")
If Not ds.Tables(TableName).Columns.Contains(columnname) Then
ds.Tables(TableName).Columns.Add(columnname.ToUpper())
added = True
Else
i += 1
[next] = "_" + i.ToString()
End If
End While
Next
Dim AllData As String = s.ReadToEnd()
Dim rows As String() = AllData.Split(vbLf.ToCharArray())
For Each r As String In rows
Dim items As String() = r.Split(delimiter.ToCharArray())
ds.Tables(TableName).Rows.Add(items)
Next
s.Close()
dt = ds.Tables(0)
Return dt
End Function
Public Function TxtConvertToDataTable(File As String, TableName As String, delimiter As String) As DataTable
Dim dt As New DataTable()
Dim ds As New DataSet()
Dim s As New StreamReader(File, System.Text.Encoding.[Default])
'string ss = s.ReadLine();//skip the first line
Dim columns As String() = s.ReadLine().Split(delimiter.ToCharArray())
ds.Tables.Add(TableName)
For Each col As String In columns
Dim added As Boolean = False
Dim [next] As String = ""
Dim i As Integer = 0
While Not added
Dim columnname As String = col + [next]
columnname = columnname.Replace("#", "")
columnname = columnname.Replace("'", "")
columnname = columnname.Replace("&", "")
If Not ds.Tables(TableName).Columns.Contains(columnname) Then
ds.Tables(TableName).Columns.Add(columnname.ToUpper())
added = True
Else
i += 1
[next] = "_" + i.ToString()
End If
End While
Next
Dim AllData As String = s.ReadToEnd()
Dim rows As String() = AllData.Split(vbLf.ToCharArray())
For Each r As String In rows
Dim items As String() = r.Split(delimiter.ToCharArray())
ds.Tables(TableName).Rows.Add(items)
Next
s.Close()
dt = ds.Tables(0)
Return dt
End Function
訂閱:
文章 (Atom)





